home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / sml_nj / cml-098.lha / cml-0.9.8 / examples / ex-counter.sml < prev    next >
Encoding:
Text File  |  1990-10-29  |  349 b   |  17 lines
  1. (* ex-counter.sml
  2.  *
  3.  * COPYRIGHT (c) 1990 by John H. Reppy.  See COPYRIGHT file for details.
  4.  *
  5.  * A simple stream-style program to generate primes.
  6.  *)
  7.  
  8. (* BEGIN EXAMPLE *)
  9. fun counter start = let
  10.       val ch = channel()
  11.       fun count i = (send(ch, i); count(i+1))
  12.       in
  13.         spawn (fn () => count start);
  14.     ch
  15.       end
  16. (* END EXAMPLE *)
  17.